home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / DEMO200.PRG < prev    next >
Encoding:
Text File  |  1994-02-08  |  2.4 KB  |  78 lines
  1. *****
  2. * Demo version 2.00 of Schooner
  3. *****
  4. clearscrn()
  5. superbox(0,0,24,79,.t.,"≤",.f.)
  6. mvcontinue=32
  7. if empty(alltrim(iconpath))
  8.     mvicomsg="This demo should have the ICONPATH DOS environment variable set. To do this select (E)xit below and at the DOS prompt type:"
  9.     mvicomsg=mvicomsg+chr(13)+chr(10)+chr(13)+chr(10)+"    SET ICONPATH=path to schooner demo"+chr(13)+chr(10)+chr(13)+chr(10) 
  10.     mvicomsg=mvicomsg+"Where the path points to the directory that "
  11.     mvicomsg=mvicomsg+"is running the Schooner version 2.00 demo."
  12.     mvcontinue=message(mvicomsg,"           (E)xit/(C)ontinue")
  13.     if upper(chr(mvcontinue))="E"
  14.         quit
  15.     endif
  16. endif
  17. mvcontinue=32
  18. mvcontinue=message("The Schooner Version 2.00 demo requires a mouse and a VGA graphics system. Do you wish to continue?","              (Y)es/(N)o")
  19. if upper(chr(mvcontinue))="N"
  20.     quit
  21. endif
  22. graphmode(2)
  23. imgpcx("v3title.pcx",0,0,"flash")
  24. imgiconbox(425,215,470,260,7,"",8,"raised")
  25. imgpcx("start1.pcx",428,218,"scroll")
  26. imgiconbox(425,260,470,305,7,"",8,"raised")
  27. imgpcx("feature1.pcx",428,263,"scroll")
  28. imgiconbox(425,305,470,350,7,"",8,"raised")
  29. imgpcx("order1.pcx",428,308,"scroll")
  30. imgiconbox(425,350,470,395,7,"",8,"raised")
  31. imgpcx("exit1.pcx",428,353,"scroll")
  32. msreset()
  33.  
  34. *****
  35. * Display intro screen
  36. *****
  37. imgsave(100,50,540,430,380,"intro")
  38. mv_udfname="intlist"
  39. imglistbox(100,50,540,430,2,1,15,8,8,0) 
  40. mscrsoroff()
  41. imgrestore(100,50,540,430,380,"intro",0) 
  42. mscrsoron()
  43.  
  44. do while .t.
  45.     *****
  46.     * Main control loop
  47.     *****
  48.     mscrsoron()
  49.     mswait(100)
  50.     mscrsoroff()
  51.     if msinside(425,215,470,260)  
  52.         imgiconbox(425,215,470,260,7,"",8,"etched")
  53.         imgiconbox(425,215,470,260,7,"",8,"raised")
  54.         imgsave(0,0,639,479,479,"relstart")
  55.         do relstart
  56.         imgrestore(0,0,639,479,479,"relstart",0)
  57.         loop
  58.     endif
  59.     if msinside(425,260,470,305) 
  60.         imgiconbox(425,260,470,305,7,"",8,"etched")
  61.         imgiconbox(425,260,470,305,7,"",8,"raised")
  62.         do feature
  63.         loop
  64.     endif
  65.     if msinside(425,305,470,350) 
  66.         imgiconbox(425,305,470,350,7,"",8,"etched")
  67.         imgiconbox(425,305,470,350,7,"",8,"raised")
  68.         do order
  69.         loop
  70.     endif
  71.     if msinside(425,350,470,395) 
  72.         imgiconbox(425,350,470,395,7,"",8,"etched")
  73.         imgiconbox(425,350,470,395,7,"",8,"raised")
  74.         exit
  75.     endif
  76. enddo
  77. quit
  78.